function Mom=SubFun_SS2Mom(PP,SS)

WI          =   SS_WealthIncome(PP,SS);
MPC         =   SS_MPC(PP,SS);

TrProbDiff  =   SS.O_TargetTrProbMat(1:end-1,:)-SS.O_AvgTrProbMat(1:end-1,:);

Diff_TrProb_FI= diag(SS.O_AvgTrProbMat_FI)-diag(PP.ExoState.Idio_FI.TrMat);
Scale_TrProb_FI=abs(1-diag(PP.ExoState.Idio_FI.TrMat));
Diff_TrProb_RI= diag(SS.O_AvgTrProbMat_RI)-diag(PP.ExoState.Idio_RI.TrMat);
Scale_TrProb_RI=abs(1-diag(PP.ExoState.Idio_RI.TrMat));


Diff_Pers_FI=   PP.ExoState.Idio_FI.TrMat(2,2)-SS.O_AvgTrProbMat_FI(2,2);
Diff_Pers_RI=   PP.ExoState.Idio_RI.TrMat(2,2)-SS.O_AvgTrProbMat_RI(2,2);

Diff_Prob_RI=   PP.ExoState.Idio_RI.InvDist(2)-SS.Dist_fzo.Marginal_fzo.RI(2);
Diff_Prob_FI=   PP.ExoState.Idio_FI.InvDist(2)-SS.Dist_fzo.Marginal_fzo.FI(2);


CurvParam   =   10;
TempDiff    =   [(exp(CurvParam*Diff_TrProb_FI)-1)./(exp(CurvParam*Scale_TrProb_FI)-1).*Scale_TrProb_FI;...
                 (exp(CurvParam*Diff_TrProb_RI)-1)./(exp(CurvParam*Scale_TrProb_RI)-1).*Scale_TrProb_RI ...Diff_Prob_FI;Diff_Prob_RI
                 ];
% TempDiff    =   [Diff_TrProb_FI;Diff_TrProb_RI];

Mom         =   [WI.WealthIncomeRatio.Quant(5);MPC.Quant(4);...
                 TempDiff];
% Result.MPC.Avg ...
% Result.WI.Wealth.Frac_Neg;...
% Result.WI.Wealth.Median/Result.WI.Income.Median;...
% Result.WI.WealthIncomeRatio.Share_HtM ...